home *** CD-ROM | disk | FTP | other *** search
/ ittybittycomputers.com / www.ittybittycomputers.com.tar / www.ittybittycomputers.com / IttyBitty / CompileIt / CompileIt2of3.sit / CompileIt!™ 2 of 3 / Symbol Table ƒ / Error Code Names / background_12755.txt < prev    next >
Text File  |  1992-07-20  |  3KB  |  156 lines
  1. -- background: 12755 from stack: in
  2. -- bmap block id: 3147
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Updater
  6.  
  7.  
  8. -- part 5 (button)
  9. -- low flags: 00
  10. -- high flags: A000
  11. -- rect: left=260 top=306 right=331 bottom=457
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Install Names in CompileIt!
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   set the lockmessages to true
  24.   put field 1 into code
  25.   put field 2 into data
  26.   put field 3 into hexes
  27.   put field 4 into remarks
  28.   if length(remarks)=262 then if last word of remarks = "┬á┬á┬á┬á┬á"
  29.   then put empty into remarks
  30.   push card
  31.   go stack "CompileIt!"
  32.   get card field "version" of card 1
  33.   if it contains "2." then get char offset("2.",it) to 99 of it
  34.   else get char offset("1.",it) to 99 of it
  35.   get char 1 to 3 of it
  36.   if it<1.4 then go stack "a current version of CompileIt"
  37.   go card "Roll Your Own"
  38.   if the result is not empty then
  39.     answer "Something is wrong with this stack" with "Cancel"
  40.     pop card
  41.     exit to HyperCard
  42.   else pop card into it
  43.   domenu "New Card"
  44.   put code into field 1
  45.   put data into field 2
  46.   put hexes into field 3
  47.   get first line of remarks
  48.   put it into field "Title"
  49.   put empty into first line of remarks
  50.   put remarks into field 5
  51.   send "newCard" to this card
  52.   if it is not empty then
  53.     set the lockscreen to true
  54.     push card
  55.     go card "Option Page"
  56.     if the result is empty then send NewIndex to button id 20
  57.     pop card
  58.   end if
  59.   send "openStack" to this card
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 1 (field)
  65. -- low flags: 81
  66. -- high flags: 2007
  67. -- rect: left=182 top=23 right=335 bottom=509
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 9
  73. -- style flags: 0
  74. -- line height: 12
  75. -- part name: 
  76.  
  77.  
  78. -- part 2 (field)
  79. -- low flags: 01
  80. -- high flags: 2007
  81. -- rect: left=224 top=32 right=292 bottom=500
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 4
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: 
  90.  
  91.  
  92. -- part 3 (field)
  93. -- low flags: 01
  94. -- high flags: 2007
  95. -- rect: left=26 top=48 right=117 bottom=195
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 4
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 12
  103. -- part name: 
  104.  
  105.  
  106. -- part 4 (field)
  107. -- low flags: 01
  108. -- high flags: 2007
  109. -- rect: left=9 top=33 right=292 bottom=215
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: 
  118.  
  119.  
  120. -- part 6 (button)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=12 top=309 right=333 bottom=35
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 21700 / 21700
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Go Home
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   go home
  135. end mouseUp
  136.  
  137.  
  138.  
  139. -- part 7 (button)
  140. -- low flags: 00
  141. -- high flags: 2000
  142. -- rect: left=8 top=306 right=337 bottom=39
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: GoHome
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   go home
  154. end mouseUp
  155.  
  156.